3
How do I change the control's border, using your EBN files

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Appearance := EXSTATUSBARLib.AppearanceEnum($1000000);
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1,2,3,4,(5/6/7/8)';
	Debug := True;
	EndUpdate();
end
2
How do I remove the control's border

with AxStatusBar1 do
begin
	BeginUpdate();
	Appearance := EXSTATUSBARLib.AppearanceEnum.None2;
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1,2,3,4,(5/6/7/8)';
	Debug := True;
	EndUpdate();
end
1
How can I change the control's font

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	f := (ComObj.CreateComObject(ComObj.ProgIDToClassID('StdFont')) as stdole.StdFont);
	with f do
	begin
		Name := 'Verdana';
		Size := 12;
	end;
	Font := (f as stdole.StdFont);
	Format := '"static text"[fg=255][a=17],11,22,(33/44)';
	EndUpdate();
end